home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / HyperCard / Resource Library / Resource Library / background_4608.txt < prev    next >
Text File  |  1989-05-28  |  12KB  |  520 lines
  1. -- background: 4608 from stack: in
  2. -- bmap block id: 6389
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Sounds
  6. ----- HyperTalk script -----
  7. on AddNewCard name
  8.   doMenu "New Card"
  9.   put name into background field "Name"
  10.   put "snd " into background field "resType"
  11.   put "tempo 200 GQ C5Q CE DE CE B4E AQ AQ AQ D5Q DE EE DE CE B4Q GQ GQ E5Q EE FE EE DE CQ A4Q GE GE AQ D5Q B4Q C5H" into background field "Sample"
  12. end AddNewCard
  13.  
  14. on idle
  15.   doHilite
  16. end idle
  17.  
  18.  
  19.  
  20. -- part 1 (button)
  21. -- low flags: 00
  22. -- high flags: 0001
  23. -- rect: left=475 top=26 right=59 bottom=504
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 21700 / 21700
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Home
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   go home
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: 0001
  42. -- rect: left=475 top=60 right=93 bottom=504
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 24317 / 24317
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Welcome
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   go to card "Welcome"
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 3 (button)
  59. -- low flags: 00
  60. -- high flags: 8003
  61. -- rect: left=423 top=191 right=216 bottom=507
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Functions
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   go to first card of background "Functions"
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 4 (button)
  78. -- low flags: 00
  79. -- high flags: 8003
  80. -- rect: left=423 top=133 right=158 bottom=507
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Commands
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   go to first card of background "Commands"
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 5 (button)
  97. -- low flags: 00
  98. -- high flags: 8003
  99. -- rect: left=423 top=220 right=245 bottom=507
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Icons
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   go to first card of background "Icons"
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 6 (button)
  116. -- low flags: 80
  117. -- high flags: 0001
  118. -- rect: left=476 top=305 right=336 bottom=504
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 29484 / 29484
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Next
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   go to next card of this background
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 7 (button)
  135. -- low flags: 00
  136. -- high flags: 8003
  137. -- rect: left=303 top=306 right=331 bottom=397
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Delete
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   deleteRes ""
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 8 (button)
  154. -- low flags: 00
  155. -- high flags: 8003
  156. -- rect: left=102 top=306 right=331 bottom=199
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Paste
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   put background field resType && background field "Name" & return into tmp
  168.   go to card "Paste"
  169.   put tmp after card field "ToPaste"
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 9 (button)
  175. -- low flags: 80
  176. -- high flags: 0001
  177. -- rect: left=7 top=304 right=335 bottom=35
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 3835 / 3835
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Prev
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   go to previous card of this background
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 10 (field)
  194. -- low flags: 00
  195. -- high flags: 0004
  196. -- rect: left=139 top=26 right=54 bottom=379
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 1
  200. -- font id: 3
  201. -- text size: 18
  202. -- style flags: 256
  203. -- line height: 24
  204. -- part name: Name
  205.  
  206.  
  207. -- part 11 (field)
  208. -- low flags: 00
  209. -- high flags: 0007
  210. -- rect: left=103 top=87 right=138 bottom=396
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 0
  214. -- font id: 3
  215. -- text size: 10
  216. -- style flags: 0
  217. -- line height: 13
  218. -- part name: Description
  219.  
  220.  
  221. -- part 12 (field)
  222. -- low flags: 00
  223. -- high flags: 0007
  224. -- rect: left=103 top=157 right=271 bottom=397
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 3
  229. -- text size: 10
  230. -- style flags: 0
  231. -- line height: 13
  232. -- part name: Sample
  233.  
  234.  
  235. -- part 16 (button)
  236. -- low flags: 00
  237. -- high flags: 8003
  238. -- rect: left=6 top=158 right=181 bottom=93
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: Sample
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   do "play" && quote & background field "Name" & quote && background field "Sample"
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 18 (button)
  255. -- low flags: 00
  256. -- high flags: 8003
  257. -- rect: left=423 top=249 right=274 bottom=507
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: Add
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   go to card "Add"
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 20 (field)
  274. -- low flags: 00
  275. -- high flags: 0000
  276. -- rect: left=6 top=30 right=53 bottom=58
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 0
  280. -- font id: 3
  281. -- text size: 14
  282. -- style flags: 256
  283. -- line height: 18
  284. -- part name: resType
  285.  
  286.  
  287. -- part 21 (button)
  288. -- low flags: 00
  289. -- high flags: A003
  290. -- rect: left=206 top=306 right=331 bottom=296
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: Rename
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   renameRes
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 22 (button)
  307. -- low flags: 00
  308. -- high flags: C005
  309. -- rect: left=221 top=140 right=156 bottom=294
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: Locked
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   put not the hilite of me into state
  321.   set lockText of background field "Description" to state
  322.   set lockText of background field "Sample" to state
  323.   set hilite of me to state
  324. end mouseUp
  325.  
  326.  
  327.  
  328. -- part 23 (field)
  329. -- low flags: 80
  330. -- high flags: 0007
  331. -- rect: left=156 top=120 right=205 bottom=356
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 0
  335. -- font id: 3
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: HighlightAreas
  340.  
  341.  
  342. -- part 24 (button)
  343. -- low flags: 00
  344. -- high flags: 8003
  345. -- rect: left=354 top=58 right=82 bottom=409
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 0 / 0
  348. -- text alignment: 1
  349. -- font id: 0
  350. -- text size: 12
  351. -- style flags: 0
  352. -- line height: 16
  353. -- part name: Hear It
  354. ----- HyperTalk script -----
  355. on mouseUp
  356.   do "play" && quote & background field "Name" & quote
  357. end mouseUp
  358.  
  359.  
  360.  
  361. -- part 25 (button)
  362. -- low flags: 00
  363. -- high flags: 8003
  364. -- rect: left=423 top=162 right=187 bottom=507
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 1
  368. -- font id: 0
  369. -- text size: 12
  370. -- style flags: 0
  371. -- line height: 16
  372. -- part name: Cursors
  373. ----- HyperTalk script -----
  374. on mouseUp
  375.   go to first card of background "Cursors"
  376. end mouseUp
  377.  
  378.  
  379.  
  380. -- part 26 (button)
  381. -- low flags: 80
  382. -- high flags: 0001
  383. -- rect: left=2 top=256 right=300 bottom=43
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 32670 / 32670
  386. -- text alignment: 1
  387. -- font id: 0
  388. -- text size: 12
  389. -- style flags: 0
  390. -- line height: 16
  391. -- part name: Scan
  392. ----- HyperTalk script -----
  393. on mouseUp
  394.   repeat until the mouseClick
  395.     visual effect dissolve
  396.     go to next card of this background
  397.   end repeat
  398. end mouseUp
  399.  
  400.  
  401.  
  402. -- part 27 (button)
  403. -- low flags: 00
  404. -- high flags: A002
  405. -- rect: left=112 top=273 right=289 bottom=298
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 1
  409. -- font id: 4
  410. -- text size: 9
  411. -- style flags: 0
  412. -- line height: 12
  413. -- part name: When the Saints Go Marching In
  414. ----- HyperTalk script -----
  415. on mouseUp
  416.   play (field "Name") tempo 220 cq e f gw gq cq e f gw gq cq e f gh e c e dw dh eq d ch. cq eh gq g g fw fq eq f gh e c d cw cq e f gw gq cq e f qw gq cq e f gh e c e dw dh eq d ch. cq eh gq g g fw fq eq f gh e c d cw
  417. end mouseUp
  418.  
  419.  
  420.  
  421. -- part 28 (button)
  422. -- low flags: 00
  423. -- high flags: A002
  424. -- rect: left=297 top=273 right=289 bottom=382
  425. -- title width / last selected line: 0
  426. -- icon id / first selected line: 0 / 0
  427. -- text alignment: 1
  428. -- font id: 4
  429. -- text size: 9
  430. -- style flags: 0
  431. -- line height: 12
  432. -- part name: Skip to M'Lou
  433. ----- HyperTalk script -----
  434. on mouseUp
  435.   play (field "Name") tempo 200 bq b g g be b bq d5h a4q a f# f# ae a aq c5h b4q b g g be b bq d5h a4q be c5e b4q a gh gq
  436. end mouseUp
  437.  
  438.  
  439.  
  440. -- part 29 (button)
  441. -- low flags: 00
  442. -- high flags: A002
  443. -- rect: left=112 top=288 right=304 bottom=250
  444. -- title width / last selected line: 0
  445. -- icon id / first selected line: 0 / 0
  446. -- text alignment: 1
  447. -- font id: 4
  448. -- text size: 9
  449. -- style flags: 0
  450. -- line height: 12
  451. -- part name: America, the Beautiful
  452. ----- HyperTalk script -----
  453. on mouseUp
  454.   play (field "Name") tempo 200 "gq gq. ee eq g gq. de dq e f g a b" && "gh. gq gq. ee eq g gq. de dq d5 c5# d5 e5 a4 d5h g4q e5q. e5e" && "dq c5q cq. b4e bq c5 d b4 a g c5h. c5q cq. a4e aq c5q" && "cq. g4e gq g a c5 g4 d5 ch."
  455. end mouseUp
  456.  
  457.  
  458.  
  459. -- part 30 (button)
  460. -- low flags: 00
  461. -- high flags: A002
  462. -- rect: left=249 top=288 right=304 bottom=333
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 0 / 0
  465. -- text alignment: 1
  466. -- font id: 4
  467. -- text size: 9
  468. -- style flags: 0
  469. -- line height: 12
  470. -- part name: Frère Jacques
  471. ----- HyperTalk script -----
  472. on mouseUp
  473.   play (field "Name") tempo 200 "cq d e c c d e c e f gh eq f gh ge a g" && "f eq c ge a g f eq c c g3 c4h cq g3 c4h" && "cq d e c c d e c e f gh eq f gh ge a g" && "f eq c ge a g f eq c c g3 c4h cq g3 c4h" && "cq d e c c d e c e f gh eq f gh ge a g" && "f eq c ge a g f eq c c g3 c4h cq g3 c4h"
  474. end mouseUp
  475.  
  476.  
  477.  
  478. -- part 31 (button)
  479. -- low flags: 00
  480. -- high flags: A002
  481. -- rect: left=332 top=288 right=304 bottom=382
  482. -- title width / last selected line: 0
  483. -- icon id / first selected line: 0 / 0
  484. -- text alignment: 1
  485. -- font id: 4
  486. -- text size: 9
  487. -- style flags: 0
  488. -- line height: 12
  489. -- part name: Stop
  490. ----- HyperTalk script -----
  491. on mouseUp
  492.   play stop
  493. end mouseUp
  494.  
  495.  
  496.  
  497. -- part 32 (button)
  498. -- low flags: 00
  499. -- high flags: 0001
  500. -- rect: left=2 top=210 right=254 bottom=43
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 20186 / 20186
  503. -- text alignment: 1
  504. -- font id: 0
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: Sort
  509. ----- HyperTalk script -----
  510. on mouseUp
  511.   lock screen
  512.   set cursor to watch
  513.   put the name of this cd into start
  514.   sort by fld "Name"
  515.   go to start
  516.   set cursor to hand
  517.   unlock screen
  518. end mouseUp
  519.  
  520.